Public Class frm_step_2

    Private Sub cmdPrevious_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdPrevious.Click
        show_form(1)
        Me.Close()
    End Sub

    Private Sub cmdNext_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdNext.Click

        'oJL.PAR_BZ_Count = txtBZCount.Text
        'oJL.PAR_BZ_Dis = txtBZDis.Text

        'oJL.step_2()

        oJL.SetExp("Main_L", Me.txt_Main_L.Text)
        oJL.SetExp("Feed_W", Me.txt_Feed_W.Text)
        oJL.SetExp("Feed_RPos", Me.txt_Feed_RPos.Text)
        oJL.SetExp("LYP_L", Me.txt_LYP_L.Text)
        oJL.SetExp("RYP_L", Me.txt_RYP_L.Text)

        oJL.update()

        show_form(3)
        Me.Close()

    End Sub

    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdCancel.Click
        Me.Close()
    End Sub

    Private Sub frm_step_2_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Me.Left = 50
        Me.Top = 50

        Me.Show()

        Me.txt_Main_L.Text = oJL.GetExp("Main_L")
        Me.txt_Feed_W.Text = oJL.GetExp("Feed_W")
        Me.txt_Feed_RPos.Text = oJL.GetExp("Feed_RPos")
        Me.txt_LYP_L.Text = oJL.GetExp("LYP_L")
        Me.txt_RYP_L.Text = oJL.GetExp("RYP_L")

        Me.lbl_LYP_L.Text = Int(Val(Me.txt_Main_L.Text) - Val(Me.txt_Feed_W.Text) - Val(Me.txt_Feed_RPos.Text))
        Me.lbl_RYP_L.Text = Int(Me.txt_Feed_RPos.Text)

        '        oJL.set_view(True)

    End Sub


End Class